MIDIVolume, WaveVolume, LiniInVolume,
MicInVolume
(Property)
Purpose: Returns and sets the current Volume of MIDI-Out, Wave-Out, Line-In and Mic.-In.
Syntax:
LngVar = CtlName.MIDIVolume
CtlName.MIDIVolume = LngVar
LngVar = CtlName.WaveVolume
CtlName.WaveVolume = LngVar
LngVar = CtlName.LineInVolume
CtlName.LineInVolume = LngVar
LngVar = CtlName.MicInVolume
CtlName.MicInVolume = LngVar
Arguments: None.
Example:
'Change Mixer device
SoundCard1.MixerDevice =
SoundCard1.MixerNumOfDevices
'Open Mixer
SoundCard1.MixerOpen
'Set
MIDI-Volume
SoundCard1.MIDIVolume = 30000
'Close
Mixer
SoundCard1.MixerClose
'Show Current Mixer device in the Debug
Window
Debug.Print
SoundCard1.MixerDevice
Comments: Mixer must be open before any Volume can be read or set. Volume range is 0 to 35535.
See Also: